home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / gus / joysdk11.zip / JOYSDK.INF < prev    next >
INI File  |  1993-05-27  |  11KB  |  369 lines
  1. ;;===========================================================================
  2. ;;            Title:     PC GamePad & Analog Pro SDK Install
  3. ;;            Version:   1.1
  4. ;;            Date:      05/27/93
  5. ;;
  6. ;; Revision History
  7. ;; 05/20/93 - First Install - Use the same script as the V2.01 GUS SDK
  8. ;;
  9. ;;===========================================================================
  10.  
  11. ;;  -----------------
  12. ;;    What Variables Are Used For
  13. ;;  -----------------
  14. ;;   [Dir1]     <UNUSED>
  15. ;;   [Dir2]     Install From Drive Letter
  16. ;;   [Dir3]     Where README is Located
  17. ;;   [Dir4]     <UNUSED>
  18. ;;   [Dir5]     <UNUSED>
  19. ;;   [Dir6]     <UNUSED>
  20. ;;   [Dir7]     <UNUSED>
  21. ;;   [Dir8]     <UNUSED>
  22. ;;   [Dir9]     <UNUSED>
  23.  
  24. ;;   [Number1]  <UNUSED>
  25. ;;   [Number2]  <UNUSED>
  26. ;;   [Number3]  Actual byte size of users install
  27. ;;   [Number4]  <UNUSED>
  28. ;;   [Number5]  <UNUSED>
  29. ;;   [Number6]  <UNUSED>
  30. ;;   [Number7]  <UNUSED>
  31. ;;   [Number8]  <UNUSED>
  32. ;;   [Number9]  <UNUSED>
  33.  
  34. ;;   [String1]  File name to restore
  35. ;;   [String2]  <UNUSED>
  36. ;;   [String3]  <UNUSED>
  37. ;;   [String4]  <UNUSED>
  38. ;;   [String5]  <UNUSED>
  39. ;;   [String6]  <UNUSED>
  40. ;;   [String7]  <UNUSED>
  41. ;;   [String8]  <UNUSED>
  42. ;;   [String9]  <UNUSED>
  43.  
  44. ;;   [YesorNo1] <UNUSED>
  45. ;;   [YesorNo2] Hide function keys
  46. ;;   [YesorNo3] <UNUSED>
  47. ;;   [YesorNo4] Overwrite files?
  48. ;;   [YesorNo5] <UNUSED>
  49. ;;   [YesorNo6] <UNUSED>
  50. ;;   [YesorNo7] <UNUSED>
  51. ;;   [YesorNo8] <UNUSED>
  52. ;;   [YesorNo9] <UNUSED>
  53.  
  54. ;;   [Point1]   <UNUSED>
  55. ;;   [Point2]   <UNUSED>
  56. ;;   [Point3]   <UNUSED>
  57. ;;   [Point4]   Ask where to install again?
  58. ;;   [Point5]   <UNUSED>
  59. ;;   [Point6]   File not there
  60. ;;   [Point7]   <UNUSED>
  61. ;;   [Point8]   <UNUSED>
  62. ;;   [Point9]   <UNUSED>
  63.  
  64. ;;======================================
  65. ;; Author:   John Smith
  66. ;; Date:     04/06/93
  67. ;; Purpose:  Define Variables
  68. ;;======================================
  69.  
  70. [Dir1] := [WindowsDirectory]
  71. [Dir2] := [InstallFromDrive]:
  72. [Dir3] := InstalitDirectory
  73.  
  74. ;;======================================
  75. ;; Author:   Forte
  76. ;; Date:     03/xx/93
  77. ;; Rev:      05/20/93 - Make a mention of the GRAVNODE list
  78. ;; Purpose:  What to Show user if they have a bad disk
  79. ;;======================================
  80. SetSupportInformation
  81.   You may have a corrupted disk. Please try installing again.  If
  82.   unsuccessful, please call Advanced Gravis Tech Support for a
  83.   replacement disk or download the disk from one of the BBS nodes
  84.   listed in GRAVNODE.TXT.
  85.  
  86.   .cTechnical Support (9am-4pm PST)......1-604-431-1807
  87.   .cBulletin Board System (V32bis N81)...1-604-431-5927
  88. EndSetSupportInformation
  89.  
  90. ;;======================================
  91. ;; Author:   John Smith
  92. ;; Date:     04/06/93
  93. ;; Purpose:  Show Title Screen
  94. ;;======================================
  95.  
  96. Do OpeningScreen                                 ;; Call the Opening Screen
  97.  
  98. ClearScreen
  99. SetBackgroundCharTo B0                           ;; Set Bkgrd to Blue/White
  100.  
  101. ChangeDirectoryTo [Dir2]                         ;; Goto Install From Drive
  102.  
  103. LetButton <F1> Do ShowHelp
  104. LetButton <F2> Do GetReadme
  105.  
  106. :MAIN
  107. [YesorNo2] := YesCharacter                       ;; Show Function Keys
  108. Do TitleScreen
  109.  
  110. QueAllFiles                                      ;; Determine Total Size
  111. [Number3] := QueSize                             ;; of Install.  Handy cause
  112. UnQueAllFiles                                    ;; independate of version
  113.  
  114. TextBox WhiteOnBlue @xy(Center,3)
  115. A complete install requires [Number3] bytes of hard disk space
  116. "NOTE: Programs such as STACKER, and DOUBLE SPACE may not"
  117. "      accurately report the true drive space remaining."
  118. EndTextBox
  119.  
  120. GetMenuChoice WhiteOnLightBlue @xy(Center,9) Highlight 1 UseHeader "Installation Main Menu"
  121. Install the PC GamePad/Analog Pro SDK Software
  122. Restore File(s)
  123.         ; Restore a single or group of files
  124. Exit
  125.         ; Exit the Install and return to DOS
  126. EndGetMenuChoice
  127.  
  128. [YesorNo2] := NoCharacter                        ;; Hide Function Keys
  129.  
  130. InCase Choice is
  131.         =1: UnQueAllFiles
  132.             QueAllFiles
  133.         =2: Do GetUserFile
  134.             Goto MAIN
  135.         =3: UnQueAllFiles
  136.             Do Bye
  137. EndInCase
  138.  
  139. ClearScreen
  140.  
  141. Do TitleScreen
  142.  
  143. Do CopyQueFiles                                  ;; Copy Requested File Groups
  144.  
  145. Goto MAIN                                        ;; Goto Main Menu
  146.  
  147. ;;===========================================================================
  148. ;;
  149. ;;                           Start of Procedures
  150. ;;
  151. ;;===========================================================================
  152.  
  153. ;;======================================
  154. ;; Author:   John Smith
  155. ;; Date:     04/20/93
  156. ;; Rev:      05/20/93 - Strip out stuff from V2.06 Install Disk
  157. ;; Purpose:  Determine Where to Copy Files then do It
  158. ;;======================================
  159. Procedure CopyQueFiles
  160. ;;-----------------
  161. ;; Now that we know what we are to copy, lets figure out where to put it all
  162. ;;-----------------
  163.     [Number3] := QueSize                             ;; How Much to Copy?
  164.     If [Number3] > 0
  165.  
  166.         Do DetermineWhere                            ;; Where to Copy Files
  167.  
  168.         SetReplacementInquiry off
  169.  
  170.         ;;-----------------
  171.         ;; Copy README Stuff if Not already there
  172.         ;;-----------------
  173.         If FileExists [InstallationDirectory]\README
  174.         Else
  175.             CopyFiles From [InstallFromDrive]:\ To [InstallationDirectory] Quietly
  176.                   GV.EXE
  177.                   README
  178.             EndCopyFiles
  179.         EndIf
  180.  
  181.         [Dir3] := [InstallationDirectory]
  182.  
  183.         ;;-----------------
  184.         ;; Copy QUED Files
  185.         ;;-----------------
  186.  
  187.         GetQuedFiles
  188.  
  189.         Do TitleScreen
  190.     EndIf
  191.  
  192. EndProcedure
  193.  
  194. ;;======================================
  195. ;; Author:   John Smith
  196. ;; Date:     04/09/93
  197. ;; Purpose:  Figure Out Destination
  198. ;;======================================
  199. Procedure DetermineWhere
  200.     DetermineInstallationDrive [Number3] RequireFixed ConfirmRAM AllowNetwork
  201.  
  202.     ClearScreen
  203.     Do TitleScreen
  204.  
  205.     TextBox WhiteOnBlue @xy(Center,19)
  206.             NOTE: The default directory is recommended so
  207.             that future upgrades are easier to perform.
  208.     EndTextBox
  209.  
  210.     [Point4]
  211.     SetBottomLineAttrTo YellowOnRed
  212.     SetBottomLineTo     "              Press RETURN to Accept and Proceed with Installation              "
  213.  
  214.     DetermineInstallationDirectory [String3] [Number3] NoCreate
  215.  
  216.     [String3] := [InstallationDirectory]
  217.  
  218.     ClearScreen
  219.     DO TitleScreen
  220.  
  221.     ;; If directory exists inform user files will be overwritten
  222.     If DirectoryExists [InstallationDirectory]
  223.         Dialog [YesOrNo4] WhiteOnRed @xy(Center,Center)
  224.             This directory already exists.  If you continue files may
  225.             be overwritten.  Would you like to continue?
  226.         EndDialog
  227.         If [YesOrNo4] = N
  228.             GoTo [Point4]
  229.         EndIf
  230.     EndIf
  231.  
  232. EndProcedure
  233.  
  234. ;;======================================
  235. ;; Author:   John Smith
  236. ;; Date:     04/07/93
  237. ;; Purpose:  Restore a Single File
  238. ;;======================================
  239. Procedure GetUserFile
  240.   Dialog [String1] YellowOnRed @xy(5,7) 12
  241.       Which file(s) do you wish to restore? (Wild Cards are accepted)
  242.   EndDialog
  243.   If [String1] = BlankString
  244.       Goto [Point6]
  245.   Endif
  246.   If [String1] Contains \
  247.       PopUp Please enter the file name with no path.
  248.       Goto [Point6]
  249.   EndIf
  250.   If FileIsInLibrary [String1]
  251.   else
  252.      PopUp That file name is not available.  Please try again.
  253.      Goto [Point6]
  254.   EndIf
  255.   QueFiles
  256.       [String1]
  257.   EndQueFiles
  258.   [Number3] := QueSize
  259.   Do DetermineWhere
  260.   GetQuedFiles
  261.   [Point6]
  262. EndProcedure
  263.  
  264. ;;======================================
  265. ;; Author:   John Smith
  266. ;; Date:     04/09/93
  267. ;; Purpose:  What to Show User if they Select HELP
  268. ;;======================================
  269. Procedure ShowHelp
  270.   If [YesorNo2] = YesCharacter
  271.       Dialog PressAnyKey YellowOnRed @xy(Center,Center)
  272.           Should you experience any difficulties with this SDK
  273.           Install you may contact Gravis customer service at:
  274.  
  275.           Advanced Gravis
  276.           3750 North Fraser Way, #101
  277.           Burnaby, BC, Canada
  278.           V5J 5E9
  279.  
  280.           Technical Support (9am-4pm PST)......1-604-431-1807
  281.           Bulletin Board System (V32bis N81)...1-604-431-5927
  282.           Fax..................................1-604-451-9358
  283.  
  284.           NOTE: These calls are to Canada!! We strongly recommend
  285.           you read the README file and the MANUAL before calling
  286.           to save time and money.
  287.       EndDialog
  288.   EndIf
  289. EndProcedure
  290.  
  291. ;;======================================
  292. ;; Author:   John Smith
  293. ;; Date:     04/07/93
  294. ;; Purpose:  View README file
  295. ;;======================================
  296. Procedure GetReadme  ;; To read the Readme file for latest updated info
  297.     If [YesorNo2] = YesCharacter
  298.         [Dir6] := CurrentDirectory
  299.         ChangeDirectoryTo [Dir3]
  300.         Run GV README NoPrompt
  301.         ChangeDirectoryTo [Dir6]
  302.     EndIf
  303. EndProcedure
  304.  
  305. ;;======================================
  306. ;; Author:   John Smith
  307. ;; Date:     04/09/93
  308. ;; Purpose:  Display Exit Message
  309. ;;======================================
  310. Procedure Bye
  311.   SoLong
  312. EndProcedure
  313.  
  314. ;;======================================
  315. ;; Author:   John Smith
  316. ;; Date:     04/27/93
  317. ;; Purpose:  Put Title Bars on the Screen
  318. ;;======================================
  319. Procedure TitleScreen
  320.     SetTopLineAttrTo YellowOnRed
  321.     SetTopLineTo "                Gravis PC GamePad & Analog Pro Installation - V1.1              "
  322.  
  323.     TextBox WhiteOnRed @xy(Center,19)
  324.     .cPC GamePad and Analog Pro by
  325.     .cAdvanced Gravis Computer Technology Ltd.
  326.     .cBurnaby, BC, Canada
  327.     EndTextBox
  328.  
  329.     SetBottomLineAttrTo WhiteOnRed
  330.     If [YesorNo2] = NoCharacter
  331.         SetBottomLineTo     "                                                                   CTRL+X=Exit  "
  332.     Else
  333.         SetBottomLineTo     "  F1=Help  F2=View ReadMe                                          CTRL+X=Exit  "
  334.     EndIf
  335.  
  336. EndProcedure
  337.  
  338. ;;======================================
  339. ;; Author:   John Smith
  340. ;; Date:     05/05/93
  341. ;; Purpose:  Throw up a dialog box welcoming user to Install
  342. ;;======================================
  343. Procedure OpeningScreen
  344.     ClearScreen
  345.  
  346.     SetTopLineAttrTo YellowOnRed
  347.     SetTopLineTo "                Gravis PC GamePad & Analog Pro Installation - V1.1              "
  348.  
  349. TextBox WhiteOnRed @xy(20,6)
  350. .cManufactured by
  351. .cA d v a n c e d
  352. " ▄▄▄ ▄▄▄▄   ▄▄▄  ▄▄   ▄▄ ▄  ▄▄▄▄ "
  353. "▐ ▄▄ ▐   ▌ ▐█ █▌ ▐█   █▌ █ ▐▄▄▄▄ "
  354. "▐   ▌▐▀█▀ ▐█   █▌ ▐█ █▌  █      ▌"
  355. " ▀▀▀ ▀  ▀ ▀     ▀  ▀▀▀   ▀  ▀▀▀▀ "
  356. .cBurnaby, BC, Canada
  357. EndTextBox
  358.  
  359. TextBox WhiteOnRed @xy(5,20)
  360.     ________________________
  361. EndTextBox
  362.  
  363. GoToXY @xy(7,21)
  364. PressAnyKey
  365.  
  366. EndProcedure
  367.  
  368. EndScript
  369.